home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / ums / ums-beta / developer / m2 / umsl.def < prev   
Text File  |  1994-11-17  |  4KB  |  107 lines
  1. (* --------------------------------------------------------------------------
  2.   :Program.       ums
  3.   :Contents.      Interfaces for ums.library
  4.   :Author.        Martin Koyro [mk]
  5.   :Address.       SnailMail:                EMail:
  6.   :Address.       Salzmannstr. 12           MAUS: MS3
  7.   :Address.       48147 Muenster            INET: mk@ms3.maus.westfalen.de
  8.   :Address.       GERMANY
  9.   :Author.        Martin Loos [ml]
  10.   :Address.       SnailMail:                EMail:
  11.   :Address.       Im Scheidt 25             MAUS: UN
  12.   :Address.       58640 Iserlohn-Kalthof    INET: mattin@unicorn.sauerland.de
  13.   :Address.       GERMANY                   FIDO: 2:243/4504.2 (GCC)
  14.   :Author.        Olaf Peters [olf]         EMail:
  15.   :Address.       Kulmer Str. 7             MAUS: HB2
  16.   :Address.       28237 Bremen              INET: op@hb2.maus.de
  17.   :Address.       GERMANY                   INET: olf@informatik.uni-bremen.de
  18.   :History.       [mk] 19-Jan-93: Conversion from Oberon to Modula-2
  19.   :History.       [mk] 24-Apr-94: Changed for UMSLib V11
  20.   :History.       [mk] 14-May-94: Versioncheck removed
  21.   :History.       [olf] 24-Aug-94: changed {"ums.library",0} to ...,10}
  22.   :Language.      Modula II
  23.   :Translator.    M2Amiga V4.107d
  24. -------------------------------------------------------------------------- *)
  25. DEFINITION MODULE UmsL{"ums.library",10};
  26.  
  27.  
  28. IMPORT d:UmsD,e:ExecD,R,u:UtilityD,s:SYSTEM;
  29.  
  30. CONST
  31.   umsMinVersion=11;
  32.   umsName="ums.library";
  33.  
  34. VAR
  35.   umsVersion:INTEGER;
  36.   umsBase:e.LibraryPtr;
  37.  
  38. (***  functions ***)
  39.  
  40. PROCEDURE Login(user{R.D2}    : d.STRPTR;
  41.                 passwd{R.D3}  : d.STRPTR): d.Account; CODE -30;
  42.  
  43. PROCEDURE Logout( account{R.D2} : d.Account);  CODE -36;
  44.  
  45. PROCEDURE ErrNum( account{R.D2} : d.Account): d.Error; CODE -120;
  46.  
  47. PROCEDURE ErrTxt( account{R.D2} : d.Account): d.STRPTR; CODE -126;
  48.  
  49. PROCEDURE DeleteMsg(account{R.D2} : d.Account;
  50.                     MsgNum{R.D3}  : d.MsgNum): BOOLEAN; CODE -132;
  51.  
  52. (*** V9 ***)
  53.  
  54. PROCEDURE ExportedMsg(acc{R.D2}   : d.Account;
  55.                       num{R.D3}   : d.MsgNum);  CODE -234;
  56.  
  57. PROCEDURE CannotExport( acc{R.D2}    : d.Account;
  58.                         num{R.D3}    : d.MsgNum;
  59.                         error{R.D4}  : d.STRPTR): BOOLEAN; CODE -240;
  60.  
  61. PROCEDURE VLog( acc{R.D2}    : d.Account;
  62.                 level{R.D4}  : LONGINT;
  63.                 format{R.D5} : d.STRPTR;
  64.                 args{R.D6}   : s.ADDRESS);  CODE -246;
  65.  
  66. PROCEDURE RLogin( server{R.D2} : d.STRPTR;
  67.                   user{R.D3}   : d.STRPTR;
  68.                   passwd{R.D4} : d.STRPTR): d.Account;  CODE -252;
  69.  
  70. PROCEDURE WriteMsg( acc{R.D2}     : d.Account;
  71.                     tagItems{R.D3}: u.TagItemPtr): d.MsgNum; CODE -258;
  72.  
  73. PROCEDURE ReadMsg(acc{R.D2}    : d.Account;
  74.                   tagItems{R.D3}: u.TagItemPtr): BOOLEAN; CODE -264;
  75.  
  76. PROCEDURE FreeMsg(acc{R.D2}    : d.Account;
  77.                   msgNum{R.D3} : d.MsgNum);  CODE -270;
  78.  
  79. PROCEDURE Select( acc{R.D2}     : d.Account;
  80.                   tagItems{R.D3}: u.TagItemPtr): LONGINT; CODE -276;
  81.  
  82. PROCEDURE Search( acc{R.D2}     : d.Account;
  83.                   tagItems{R.D3}: u.TagItemPtr): d.MsgNum; CODE -282;
  84.  
  85. PROCEDURE ReadConfig( acc{R.D2}: d.Account;
  86.                       tagItems{R.D3}: u.TagItemPtr): d.STRPTR; CODE -288;
  87.  
  88. PROCEDURE FreeConfig( acc{R.D2}    : d.Account;
  89.                       str{R.D3}    : d.STRPTR); CODE -294;
  90.  
  91. PROCEDURE WriteConfig(acc{R.D2}: d.Account;
  92.                       tagItems{R.D3}: u.TagItemPtr): BOOLEAN; CODE -300;
  93.  
  94. (*** V11 ***)
  95.  
  96. PROCEDURE ServerControl(sever{R.D2} : d.STRPTR;
  97.                         action{R.D3}  : LONGINT): d.Error; CODE -312;
  98.  
  99. PROCEDURE MatchConfig(acc{R.D2}     : d.Account;
  100.                       tagItems{R.D3}: u.TagItemPtr): BOOLEAN; CODE -318;
  101.  
  102. PROCEDURE ErrTxtFromNum(err{R.D2} : d.Error): d.STRPTR; CODE -324;
  103.  
  104. PROCEDURE DupAccount(acc{R.D2}: d.Account): d.Account; CODE -330;
  105.  
  106. END UmsL.lib11
  107.